home *** CD-ROM | disk | FTP | other *** search
/ mail.altrad.com / 2015.02.mail.altrad.com.tar / mail.altrad.com / TEST / office german / ACCESS.DE-DE / ACCLR.CAB / RPLBRF35.CHM_1031 / html / showme_code.vbs < prev   
Text File  |  2005-10-28  |  6KB  |  119 lines
  1. Dim L_ShowMe_ErrorMessage(10)
  2. Dim msouierrSuccess
  3. Dim msouierrFail
  4. Dim msouierrNotValidId
  5. Dim msouierrNoDialog
  6. Dim msouierrWrongDialog
  7. Dim msouierrAdminDisabled
  8. Dim msouierrDisabled
  9. Dim msouierrOn
  10. Dim msouierrOff
  11. Dim msouierrUnknown
  12. Dim msouierrAppModal
  13. Dim sSecurityMSG
  14.  
  15. 'LOCALIZABLE: There needs to be a "Dim" statement for each "L_Security??_ErrorMessage" constant:
  16.     Dim L_SecurityT1_ErrorMessage
  17.     Dim L_SecurityT2_ErrorMessage
  18.     Dim L_SecurityT3_ErrorMessage
  19.     Dim L_SecurityE1_ErrorMessage
  20.     Dim L_SecurityE2_ErrorMessage
  21.     Dim L_SecurityE3_ErrorMessage
  22.     Dim L_SecurityE4_ErrorMessage
  23.     Dim L_SecurityE5_ErrorMessage
  24.     Dim L_App_DialogTitle
  25.  
  26.  
  27. '------------------------
  28. ' Detect if IE is >=4.0 -
  29. '------------------------
  30. Function DetectBrowserVersion()
  31.    Dim iVersion
  32.    iVersion=navigator.appversion
  33.    If Left(iVersion,1)>=4 Then
  34.        DetectBrowserVersion="4.0>"
  35.    Else
  36.        DetectBrowserVersion="3.0x"
  37.    End if
  38. End Function
  39.  
  40. '----------------------------------------
  41. ' Display the appropriate error message -
  42. '----------------------------------------
  43.  
  44. Sub DisplayError(retVal)
  45.     Call InitConstants
  46.     Msgbox L_ShowMe_ErrorMessage(retVal), 4144, L_APP_DialogTitle
  47. End Sub
  48.  
  49. Sub InitConstants()
  50.     'NON-LOCALIZABLE: Return values from OUACtrl.ocx. Used by the "Show Me" jumps.
  51.    msouierrSuccess=0
  52.    msouierrFail=1
  53.    msouierrNotValidId=2
  54.    msouierrNoDialog=3
  55.    msouierrWrongDialog=4
  56.    msouierrAdminDisabled=5
  57.    msouierrDisabled=6
  58.    msouierrOn=7
  59.    msouierrOff=8
  60.    msouierrUnknown=9
  61.    msouierrAppModal=10
  62.  
  63.    'LOCALIZABLE: Possible error messages displayed to the user, in order of frequency
  64.    L_ShowMe_ErrorMessage(msouierrFail)="Diese Aufgabe kann nicht automatisch beendet werden. Bitte fⁿhren Sie die einzelnen Schritte manuell aus."        'Message to display when there is a general Show Me failure
  65.    L_ShowMe_ErrorMessage(msouierrAppModal)="Es wird bereits ein Dialogfeld angezeigt."                                        'Message to display when the application is already displaying a dialog
  66.    L_ShowMe_ErrorMessage(msouierrDisabled)="Diese Aufgabe kann nicht automatisch beendet werden. Bitte fⁿhren Sie die einzelnen Schritte manuell aus."        'Message to display when the application is in a state that makes the feature disabled
  67.    L_ShowMe_ErrorMessage(msouierrNoDialog)="Das Dialogfeld konnte nicht angezeigt werden."                                    'Message to display when the application doesn't display the requested dialog
  68.    L_ShowMe_ErrorMessage(msouierrAdminDisabled)="Der Befehl, den Sie zu benutzen versuchen, wurde von Ihrem Administrator deaktiviert."                'Message to display when the feature we're trying to use is disabled by an administrator
  69.    L_ShowMe_ErrorMessage(msouierrWrongDialog)="Die Option ist in dem angegebenen Dialogfeld nicht verfⁿgbar."                            'Message to display when we attempt to "click" a non-existent control on a dialog ("Do It" jumps -- not really used)
  70.    L_ShowMe_ErrorMessage(msouierrNotValidId)="Interner Fehler. Bitte fⁿhren Sie die einzelnen Schritte manuell aus."                        'Message to display when our Show Me code calls the wrong TCID (This should never display!)
  71.    
  72.  
  73.    '***********************************************************************************
  74.    'NOTE TO VENDORS: These string resources need to be the same as the ones in
  75.    '              "IE 3.0x Fixes.xls"!!  Please do the following:
  76.    '                 - Click the "Copy MsgBox" on the worksheet.
  77.    '                 - Remove the existing lines below between "BEGIN" and "END"
  78.    '                 - Paste the contents of the clipboard between "BEGIN" and "END"
  79.    '                 - Insert a "Dim" statement at the top of this file for each
  80.     '                   constant
  81.     '
  82.    '*** BEGIN *** BEGIN *** BEGIN *** BEGIN *** BEGIN *** BEGIN *** BEGIN *** BEGIN ***
  83.  
  84.         'LOCALIZABLE: Problem/Solution style dialog for "Security setting too high"
  85.         L_SecurityT1_ErrorMessage="Der Hilfetext zu dieser Prozedur kann nicht angezeigt werden, da die Sicherheitseinstellungen"    'Line 1 of problem text
  86.         L_SecurityT2_ErrorMessage="Ihres Browsers zu hoch sind oder das ActiveX-Steuerelement Ouactrl.ocx nicht einwandfrei"        'Line 2 of problem text
  87.         L_SecurityT3_ErrorMessage="installiert wurde."                                            'Line 3 of problem text
  88.         L_SecurityE1_ErrorMessage="- WΣhlen Sie eine niedrigere Sicherheitseinstellung fⁿr Ihren Browser."                'Line 1 of solution text
  89.         L_SecurityE2_ErrorMessage="- Wenn Sie diese Nachricht erhalten, nachdem Sie eine niedrigere Sicherheitseinstellung"        'Line 2 of solution text
  90.         L_SecurityE3_ErrorMessage="   ausgewΣhlt haben, benachrichtigen Sie bitte Ihren Systemadministrator. Er wird Ihnen"        'Line 3 of solution text
  91.         L_SecurityE4_ErrorMessage="   bei der Behandlung der fehlerhaften Installation des ActiveX-Steuerelements Ouactrl.ocx"        'Line 4 of solution text
  92.         L_SecurityE5_ErrorMessage="   im Ordner, in den Microsoft Office installiert wurde, helfen."                    'Line 5 of solution text
  93.  
  94.         'LOCALIZABLE: 
  95.         sSecurityMSG=L_SecurityT1_ErrorMessage & Chr(13) & L_SecurityT2_ErrorMessage & Chr(13) & L_SecurityT3_ErrorMessage & Chr(13) & Chr(13) & L_SecurityE1_ErrorMessage & Chr(13) & L_SecurityE2_ErrorMessage & Chr(13) & L_SecurityE3_ErrorMessage & Chr(13) & L_SecurityE4_ErrorMessage & Chr(13) & L_SecurityE5_ErrorMessage
  96.  
  97.         'LOCALIZABLE: Title for error dialogs
  98.         L_App_DialogTitle="Microsoft Office-Hilfe"        'Title for error dialogs
  99.     
  100.    '*** END *** END *** END *** END *** END *** END *** END *** END *** END *** END ***
  101.     
  102. End Sub
  103.  
  104. Sub InitErrorMsgs()
  105.     'Leave this here just in case we forgot to remove a call.
  106. End Sub
  107.  
  108. '---------------------------------------------
  109. ' Mouse over, mouse out, rollover procedures -
  110. '---------------------------------------------
  111. Sub ColorSteps(sColor)
  112.     If sColor="LightBlue" Then
  113.         steps.className = "Highlight"
  114.     Else
  115.         steps.className = "Normal"
  116.     End If
  117. End Sub
  118.  
  119.